home *** CD-ROM | disk | FTP | other *** search
/ Day Cry / Day Cry CD.bin / oh_towns / fb386smp / bas / mos.bas < prev    next >
BASIC Source File  |  1994-09-20  |  806b  |  26 lines
  1. 1000 CLEAR ,,,,1024:LOADM "DOS.REX",0
  2. 1010 MEMCPY&=5
  3. 1020 '
  4. 1030 DEFLNG F
  5. 1040 DIM F_PAT(((32*32/8)+3)/4+1),F_PAT1(((32*32/8)+3)/4+1)
  6. 1050 '
  7. 1060 MOUSE 0
  8. 1070 F_SHAPE=81:GOSUB *F_â}âEâXâJü[â\âïÉ▌ÆΦ
  9. 1080 MOUSE 1,,,1
  10. 1090 WHILE MOUSE(2,0)=0:WEND
  11. 1100 MOUSE 5
  12. 1110 END
  13. 1120 '
  14. 4000 '-----------------------------
  15. 4010 *F_â}âEâXâJü[â\âïÉ▌ÆΦ
  16. 4020 '-----------------------------
  17. 4030  CALLM MEMCPY&,&H14,VARPTR(F_PAT(0)),&H108,&H28000+F_SHAPE*32*32/4,32*32/8
  18. 4040  CALLM MEMCPY&,&H14,VARPTR(F_PAT1(0)),&H108,&H28080+F_SHAPE*32*32/4,32*32/8
  19. 4050  F_ADR1=VARPTR(F_PAT1(0)):F_ADR0=VARPTR(F_PAT(0))
  20. 4060  FOR F_I=0 TO 32*32/8-1
  21. 4070     POKE F_ADR0,(PEEK(F_ADR0) XOR 255) AND (PEEK(F_ADR1) XOR 255)
  22. 4080     F_ADR0=F_ADR0+1:F_ADR1=F_ADR1+1
  23. 4090  NEXT
  24. 4100  MOUSE 6,0,F_PAT1,F_PAT
  25. 4110 RETURN
  26.